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-- file ComData.Mesa 

-- last modified by Satterthwaite. March 16, 1978 10:44 AM 

DIRECTORY 

StreamDefs: FROM "streamdef s", 
BcdOefs: FROM "bcddefs", 
SymbolTableDefs: FROM "symbol tabledefs", 
SymDefs: FROM "symdefs", 
TreeDefs: FROM "treedefs"; 

ComData: PROGRAM ■ 
PUBLIC 
BEGIN 
OPEN SymDefs; 

-- shared instance of SymbolTable 

ownSymbols: SymbolTableDefs .Symbol TableBase; 

-- basic types (initialized in Passl) 

typelNTEGER, typeSOOLEAN, typeCHARACTER, typeREAL. typeSTRING: CSEIndex; 
typeLOCK. typeCONDITION: CSEIndex; 

idANY: ISEIndex; 

idlNTEGER, idCARDINAL. idCHARACTER. idBOOLEAN. idREAL, idSTRING: ISEIndex; 

idLOCK: ISEIndex; 

-- anonymous entry for undeclared ids 
seAnon: ISEIndex; 

-- symbolic constants 

idTRUE, idFALSE: ISEIndex; 
tCO, tCl: TreeDefs. TreeLink; 
idUNWIND: ISEIndex; 

-- global info describing module 
def initionsOnly: BOOLEAN; 
monitored: BOOLEAN; 
stopping: BOOLEAN; 

outerCtx: CTXIndex; -- predefined identifiers 
moduleCtx: CTXIndex; -- module identifiers 
importCtx: CTXIndex; -- import id context 

mainCtx: CTXIndex; -- main program's context 
bodyRoot: BTIndex; 
mainBody: CBTIndex; 
nBodies: CARDINAL; 
nSigCodes: CARDINAL; 
defBodyLimit: INTEGER; 

linkBase: CARDINAL; -- global control links (externals, etc) 
linkCount: CARDINAL; 

— compilation options 
warnings: BOOLEAN; 
xref: BOOLEAN; 
sort: BOOLEAN; 
dStar: BOOLEAN; 

-- variables used for error reporting 
nErrors: CARDINAL; 
nWarnings: CARDINAL; 

bodylndex: CBTIndex; -- current body 
textlndex: CARDINAL; -- start index of line with error 

-- input 

sourceFile: STRING; 

sou rceStr earn: StreamDefs. St reamHandle; 

rootFile: STRING <- [40]; 

-- output 

compilerVersion: BcdDefs.VersionStamp; 

netNumber: CARDINAL; 

sourceVersion, objectVersion: BcdDefs.VersionStamp; 

objectStream: StreamDefs .StreamHandle; 
errors tream: StreamDefs. StreamHandle; 
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objectBytes, objectFrameSize: CARDINAL; 

fgTable^: DESCRIPTOR FOR ARRAY OF FGTEntry; 

codeSeg, symSeg: BcdDefs.SGRecord; 

mtRoot: BcdDef s.MTRecord; 

MTRootSize: CARDINAL ■ SIZE[BcdDefs.MTR8Cord]-SIZE[BcdDefs. FrameFrag]; 

fixupLoc: StreamDefs.Streamlndex; 

END. 



